

IRKI.J) = 2 
CONTINUE 
PRINT 20> ( 



1 



r=^iV3Esr 



I 



1, 3) 



I 



FORMAT (3(1> 




END 



Program Numbers: 

5748-F03 Compiler and Library 
5748-LM3 Library Only 



Release 4.0 



VS FORTRAN 
Compiler and Library 
Diagnosis Guide 



Program Numbers 
5748-F03 (Compiler and Library) 
5748-LM3 (Library Only) 
Release 4.0 

SC26-3990-4 



Fifth Edition (October 1984) 

This is a major revision of, and makes obsolete, SC26-3990-3. 

This edition applies to Release <+ . of VS FORTRAN, Program 
Product 57''48-F03 (Compiler and Library) , 57^8-LM3 (Library Only), 
and to any subsequent releases until otherwise indicated in new 
editions or technical newsletters. 

The changes for this edition are summarized under "Summary of 
Amendments" following the preface. Specific changes are 
indicated by a vertical bar to the left of the change. These 
bars will be deleted at any subsequent republication of the page 
affected. Editorial changes that have no technical significance 
are not noted. 

Changes are made periodically to this publication; before using 
this publication in connection with the operation of IBM 
systems, consult the latest IBM Sys tem/370 and 4300 Processors 
Bibliography, GC20-0001, for the editions that are applicable 
and current. 

References in this publication to IBM products, programs, or 
services do not imply that IBM intends to make these available 
in all countries in which IBM operates. Any reference to an IBM 
program product in this publication is not intended to state or 
imply that only IBM's program product may be used. Any 
functionally equivalent program may be used instead. 

Publications are not stocked at the address given below; 
requests for IBM publications should be made to your IBM 
representative or to the IBM branch office serving your 
locality. 

A form for readers* comments is provided at the back of this 
publication. If the form has been removed, comments may be 
addressed to IBM Corporation, P.O. Box 50020, Programming 
Publishing, San Jose, California, U.S.A. 95150. IBM may use or 
distribute whatever information you supply in any way it 
believes appropriate without incurring any obligation to you. 

© Copyright International Business Machines Corporation 1981, 
1982, 1983, 1984 



PREFACE 



This book presents a systematic way of selecting keywords to 
describe a suspected failure in the VS FORTRAN Compiler or 
Library. It assumes that you have: 

1. Used all debug tools and options available to you^ such as 
static debug statements^ or the VS FORTRAN Interactive Debug 
product. 

2. Examined all VS FORTRAN messages and error conditions 
produced by the program^ and corrected them when possible. 

3. Ensured^ as far as possible^ that the error is occurring in 
the VS FORTRAN Compiler or Library and not in the 
application program. 

4. Noted the specific sequence of events preceding the error 
condition. 



HOW TO USE THIS BOOK 



If you suspect a product failure^ follow the instructions for 
keyword selection in "Developing a Keyword String" on page 5. 

Then use the keywords to search an indexed data base to 
determine whether your problem has been previously described in 
an APAR (authorized program analysis report). You may do the 
search yourself if you have access to a suitable data base such 
as Info Access or Early Naming System^ or you can call the IBM 
Support Center to search the Software Support Facility. "Using 
the Keyword String as a Search Argument" on page 15 describes 
the search procedure. 

If no APAR is identified for your product failure^ you may be 
asked to submit one so that the product can be corrected if 
necessary. "Preparing an APAR" on page 17 describes this 
procedure. 



VS FORTRAN PUBLICATIONS 



The following VS FORTRAN publications also contain helpful 
diagnostic information. 

• VS FORTRAN Programming Guide , SC26-4118 

• VS FORTRAN Language and Library Reference , GC26-4119 

• VS FORTRAN Interactive Debug Guide and Reference , SC26-4116 
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RELATED PUBLICATIONS 



Publications that contain diagnostic information relevant to VS 
FORTRAN are: 

VSE/Advanced Functions Messages > SC33-6098 

OS/VS Message Library; VS2 System Messages > GC38-1002 

0S/VS2 MVS Supervisor Services and Macro Instructions * 
GC28-0683 

VM/SP Messages and Codes , SC19-6204 

MVS/Extended Architecture Message Library: System Messages , 
GC28-1128 

Field Engineering Programmj-ng Systems General Information , 
GC29-222S 



iv VS FORTRAN Diagnosis Guide 



SUMMARY OF AMENDMENTS 



RELEASE 4.0> OCTOBER 198^ 

PROGRAMMING ENHANCEMENTS 

• The following compiler options have been addedt 

AUTODBL 

RENT or NORENT 

SDUMP 

SXM or NOSXM 

• VS FORTRAN programs can now load and access VSAM KSDS files. 

• The following compiler statements have been addedt 

REWRITE 
DELETE 

• The library has been restructured to allow more 
execution-time loading of library routines. You can choose 
to have all library routines (other than the mathematical 
routines) either link-edited into the load module with 
compilei — generated code» or loaded dynamically at execution 
time. 



SERVICE CHANGES 



This manual contains only "Guide" information on selecting 
and using keyword strings. 

"VS FORTRAN Statements" has been moved from the Appendix to 
the section on procedure under "Type of Failure Keyword." 

"Service Aids" is now an appendix. 



RELEASE 3«1* MARCH 198<t 



PROGRAMMING ENHANCEMENTS 



• VS FORTRAN Interactive Debug is now supported. Hhen a VS 
FORTRAN program is executed^ the user has a choice of two 
different execution options: 

~ DEBUG^ which activates VS FORTRAN Interactive Debug 
immediately; and 

NODEBUG, the IBM default, which does not invoke VS 
FORTRAN Interactive Debug. 

Note: The TEST compiler option is not necessary for VS FORTRAN 
Interactive Debug. 



Summary of Amendments v 



RELEASE 3.0, HARCH 1983 

PROGRAMMING ENHANCEMENTS 

• The following compiler options have been added; 

CHARLEN 

CI 

NOSDUMP 

SRCFLG or NOSRCFLG 

SYM or NOSYM 

TRMFLG or NOTRMFLQ 

• The compiler option SC has been discontinued. 

• The debugging aid Symbolic Dump has been added for user 
errors. 



SERVICE CHANGES 



• A new keywords ABENOU^ is added to the Abnormal Termination 
procedure for user abends. 

• The compiler modules have been reorganized into a directory 
format. 

• The discussion of the main data area and control blocks have 
been expanded. 
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INTRODUCTION TO GUIDE INFORMATION 



KEYWORD USAGE 



VS FORTRAN Compiler and Library product failures can be 
described through the use of keywords. A keyword is a word or 
abbreviation used to describe a single aspect of a product 
failure. A set of keywords for a given problem is called a 
keyword string. The keyword string is used as a search argument 
in an IBM software support data base, such as the Software 
Support Facility (SSF) or the Early Naming System (ENS). To 
describe a product failure so you can search a data base, you 
must develop a set of keywords. 

When the problem is described in the software support data base 
with the same set of keywords, the search yields matching 
descriptions of the problem and a correction is usually known. 

If the problem is not listed, use the keywords to help prepare 
an APAR. Keywords are intended to ensure that any two people 
will identically describe the same type of problem caused by the 
same program error. For additional information on keywords and 
APAR preparation, see Field Engineering Programming System 
General Information . 



The first keyword identifies the product by its Component 
Identification Number. A search of a software support data base 
with this keyword alone would detect all reported problems for 
the entire program product. Each keyword added makes the search 
argument more specific, thereby reducing the types of problem 
descriptions to those shown in Figure 1 on page 2. 

The procedures contained in the rest of this Guide will help you 
develop a full keyword string. 

• "Component Identification Keyword" on page 5 lists the 
program product number used to identify VS FORTRAN products. 

• "Type of Failure Keyword" on page 5 tells how to specify 
different types of failures. 

• "Release and Modification Levels" on page 14 describes how 
to identify the release levels of various VS FORTRAN 
products. 

• "Using the Keyword String as a Search Argument" on page 15 
explains how the keyword string is used to search a software 
support data base. 

• "Preparing an APAR" on page 17 explains what materials are 
needed to prepare an authorized program analysis report 
(APAR). 

Figure 1 on page 2 illustrates the process of creating a keyword 
string. 
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Figure 1. Flowchart of a VS FORTRAN Keyword String 
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DIAGNOSIS PROCEDURE 



Use these procedures to gather the diagnostic information 
needed to develop keyword search arguments for a software 
support data base. 

1. Correct all problems diagnosed by VS FORTRAN messages and 
ensure that any messages previously generated have nothing 
to do with the problem being worked on. VS FORTRAN Compiler 
messages have the prefix IFX; VS FORTRAN Library messages 
have the prefix IFY. 

2. If your program has been compiled at optimization level 
with the NORENT option, use VS FORTRAN Interactive Debug or 
FORTRAN static debug statements to identify a problem that 
occurs during run time. If you have the VS FORTRAN 
Interactive Debug product, you can use it for execution-time 
analysis of your program and its error. FORTRAN static 
debug can isolate the problem and determine whether it is a 
user error, a compiler-produced code error, or an 
execution-time library error. 

For more information on VS FORTRAN Interactive Debug, see 
"VS FORTRAN Interactive Debug" on page 18. An overview of 
the static debug statements and options is given in Appendix 
A, "Service Aids" on page 18. 

3. If the compilation fails at an optimization level other than 
0, try to recompile the program at a lower level. If you 
are successful, compile the program at that level to bypass 
the problem until a fix is found and applied. Remember to 
note the conditions and options in effect when the failure 
occurred. 

4. Determine if the program has been changed since it last 
compiled or executed successfully. If it has, examine the 
changes. If the error is occurring in the changed code and 
cannot be corrected, note the change that caused the error. 
If possible, retain copies of both the original and the 
changed programs. 

5. After the failure has been explored and identified, consider 
writing a small test case that re-creates the problem. This 
test case should help you to: 

• Distinguish between an error in the application program 
and an error in VS FORTRAN 

• Choose keywords that best describe the error 

• Pinpoint the problem 

6. If the problem occurs during execution, specify the 
following options in the compilation, in addition to the 
options originally specified, to produce maximum diagnostic 
information. 

LIST 

GOSTMT 

MAP 

SDUMP 

SOURCE 

SRCFLG 

XREF 

If the compiler abends, see "Compiler Trace Option" on page 
19. 
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7. Note the sequence of events that lead to the error 
condition. This information may be useful in developing a 
set of keywords, and will be needed if an APAR is required. 

8. If the user program is abending, direct the object error 
unit (usually unit 6) to a file, not a terminal, to allow 
the post-abend dump to be printed. 

9. Begin developing the set of keywords, using the procedure in 
"Component Identification Keyword" on page 5. 
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DEVELOPING A KEYWORD STRING 



The following sections will help you select the correct keywords 
to describe a product failure and build a keyword string. 



COMPONENT IDENTIFICATION KEYWORD 



The component identification number is the first keyword in the 
keyword string. It indicates the library within the software 
support data base that contains known problem descriptions for 
the product. 

5748F0300 is the component identification keyword for the VS 
FORTRAN Compiler and Library. 5748LN300 is the component 
identification keyword for the VS FORTRAN Library only. 

Continue the diagnosis procedure with "Type of Failure Keyword." 



TYPE OF FAILURE KEYWORD 



From the list in Figure Z, select the symptom that best 
describes the problem. Then turn to the page referenced for 
that type of problem. If more than one keyword describes the 
problem^ use the one that appears first in the list. 



Symptom 


Description 


Reference 


Abnormal 
Termination 


A program exception has 
occurred, or the program 
has terminated 
abnormally. 


"Abnormal 
Termination 
Problems" on 
page 6 


Message 
Problems 


A message indicates an 
internal program error, 
or seems itself to be an 
error. 


"Message 
Problems" on 
page 10 


No Response 


The program seems not to 
be doing anything, or is 
doing something 
repetitively. 


"No Response 
Problems" on 
page 11 


Documentation 
Problems 


The information in one of 
the VS FORTRAN 
publications is incorrect 
or missing. 


"Documentation 
Problems" on 
page 11 


Incorrect 
Output 


The output from the 
program is missing or 
invalid. 


"Incorrect 
Output 

Problems" on 
page 12 


Slow Response 


The performance of the 
program is degraded. 


"Performance 
Problems" on 
page 13 



Figure 2. VS FORTRAN Symptom Table 
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ABNORMAL TERHINATZON PROBLEMS 



Procedure 



Use the ABENDx keyword procedure when a program exception 
occurs: 

• Nithin VS FORTRAN 

• Nithin a VS FORTRAN-compiled program 

• Whenever a VS FORTRAN or a VS FORTRAN-compiled program 
terminates without a message 

Do not use this keyword if termination was forced because too 
much time was spent in a wait state or in an endless loop. For 
those situations/ refer to the procedure for "No Response 
Problems" on page 11. 



Determine whether the problem occurs during compile time or 
during execution time. 

• If the problem occurs during the compilation of your 
program^ go to step 2 on page 7 . 

• If the problem occurs during execution of your program^ 
there is a strong probability that it is a user error. 
Before continuing* verify that the problem is not the 
result of incorrect coding. 

Execution-time errors that cause the program to 
terminate abnormally produce message IFY240I and a 
traceback map. 

The IFY240I message has the following format t 

IFY240I VSTAE: ABEND CODE IS: SYSTEM SSSS, USER UUUU, 
SCB/SDWA=HHHHHHHH. 

a. In the ABENDx keyword, replace the x with the abend 
code, which is the SSSS coding shown inside the 
IFY240I message. 

VS FORTRAN does not issue user ABENDs during program 
execution. If you receive a message that indicates 
a user ABEND, contact your system programmer to 
determine the problem in your code. 

b. Use message IFY240I as a modifier in the keyword 
string. If you received an additional message 
besides IFY2^0I, also include that message as a 
modifier. For further details on the IFY2'iOI 
message, see VS FORTRAN Language and Library 
Reference . 

c. Study the traceback map to discover which source 
statement is causing the problem. For a complete 
description of how to request and interpret a 
traceback map, see VS FORTRAN Programming Guide . If 
you are unable to determine which statement caused 
the failure, continue with "Release and Modification 
Levels" on page 14. 
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Use the following statement names as modifier 
keywords to describe the statement you think is 
creating the error. 



ASSIGN 

AT 

BACKSPACE 

BLOCKDATA 

CALL 

CHARACTER 

CLOSE 

COMMON 

COMPLEX 

CONTINUE 

DATA 

DEBUG 

DEFINE FILE* 

DELETE 

DIMENSION 

DISPLAY 

DO 

DOUBLE PRECISION 

EJECT 

ELSE2 

ELSE IF2 

END 

ENDFILE 

END IF2 

ENTRY 

EQUIVALENCE 

EXTERNAL 

FINDi 

FORMAT 

FUNCTION 



GENERIC* 

GOTO^ 

IF^ 

IF THEN5 

IMPLICIT 

INCLUDE 

INQUIRE 

INTEGER 

INTRINSIC 

LOGICAL 

NAMELIST 

OPEN 

PARAMETER 

PAUSE 

PRINT 

PROGRAM 

PUNCH* 

READ^ 

REAL 

RETURN 

REMIND 

REWRITE 

SAVE 

STOP 

SUBROUTINE 

TRACE OFF 

TRACE ON 

WAIT 

WRITE** 



LANGLVL(66) only. 

Use IF THEN as keyword. 

Includes assigned GOTO/ computed GOTO^ and 
unconditional GOTO. 

Includes arithmetic IF and logical IF. 

Includes block IF, ELSE, ELSE IF, and END IF. 

Includes asynchronous, with list-directed I/O, 
with NAMELIST, with internal files, formatted or 
unformatted with direct or keyed access, or 
formatted or unformatted with sequential access. 

A sample keyword string showing an abend in the 
library displaying two messages might look like 
this : 

Component Identification: 57<^8F0300 
Type of Failure: ABENDOCl 

Modifiers: IFY240I 

IFY210I 

Determine at what levels of optimization the failure 
occurs. 

If it occurs at only some levels, indicate in the 
keyword string the levels of optimization at which 
it does occur. Select the appropriate modifier 
keyword from the list shown in Appendix B, "Compiler 
Options" on page 20. 

Continue with "Release and Modification Levels" on 
page 14. 
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2. Use ABENOU0016 as your type of failure keywords because all 
abnormal terminations in the compiler receive this user 
abend. 

3. Recompile the program to produce a trace point 77 dump if 
the VS FORTRAN compiler terminates abnormally. 

For information on how to create a trace point 77 dump> 
refer to "Compiler Trace Option" on page 19. 

4. Use the trace point 77 dump to determine the module that 
failed/ the location within the module at which the problem 
occurred, and the type of error exception. 

Figure 3 on page 9 shows a sample trace point 77 dump. 
Areas discussed in the following procedure are in boldface 
and underscored. 

5. Locate the program status word (PSW) in the first line under 
the heading of the trace point 77 dump. The last position 
of the first word in the PSW is an identifier which stands 
for the exception type. 

Select the identifier to use for the exception type in your 
keyword from the following table: 



Identifier 


Exception Type 


Codi 


1 


operation 


OCl 


4 


protection 


0C4 


5 


addressing 


0C5 


6 


specification 


0C6 


7 


data 


0C7 


9 


fixed-point divide 


0C9 


C 


exponent overflow 


OCC 


D 


exponent underflow 


OCD 



F floating-point divide OCF 

Now replace the x of ABENDOCx with the identifier to make a 
keyword. 

For example^ if you suspect that the compiler caused the 
abend and have the trace point 77 shown in Figure 3> you 
would develop the following keyword string: 

Component Identification: 5748F0500 
Type of Failure: ABENDU0016 

Exception Code Modifier: ABENDOCl 

6. Use the trace point 77 dump to develop two modifier keywords 
from the module name and from the displacement in the module 
at which the error occurred. Both of these modifiers can be 
found in the dump, on the line following the general 
rejgisters. In the example given in Figure 5, the module 
name is IFX2STAL and the displacement is 0058. 

Using the example shown in Figure 3, your set of keywords 
would look like this: 

Component Identification: 5748F0300 

Type of Failure: ABENDU0016 

Exception Code Modifier: ABENDOCl 

Module Modifier: IFX2STAL 

Displacement Modifier: 0058 

7. Determine at what levels of optimization the failure occurs. 

If it occurs at only some levels, indicate in the keyword 
string the levels of optimization at which it does occur. 
Select the appropriate modifier keyword from the list shown 
in Appendix B, "Compiler Options" on page 20. 

8. Continue with "Release and Modification Levels" on page 14. 
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PSM AND GENERAL REGISTERS. PHASE 2. TRACE POINT 77. PROGRAM CHECK. 
PSW: FFE^OOOl ^208B53A 

GR 0-7t000FlB99 0008F978 00000000 00000000 0011F9E0 00000000 00090<^63 0008F464 
GR 8-F:0008E465 0008D466 0008C467 OOOFICOO OOOSB'^SS OOOF2180 4208B538 00000000 

AREA AROUND INTERRUPT. 

(0008B510) B2BC50«iO DSeSSS'iO B2C05040 D36C58^0 B2C450A0 D3709101 B07B4770 C0D458F0 

(0008B530) 76D0^110 75I^05EF 00000000 58F076D0 4110751C 05EF5840 BIBCSO^O B<iF896^0 

(0008B550) B4C65840 B1BC5040 D198D201 B358762E 1F<^<)50<^0 D18C<)3^0 76FF4240 D1CA4140 

THE PROGRAM CHECK OCCURED AT DISPLACEMENT (00D2) IN IFX2STAL . 

SAVE AREA CONTENTS: UNUSED, BKPTR, FWDPTR, GPR(1A-12), CALLER ID, WORKING STORAGE. 
SAVE AREA FOR IFX2STAL (000F2180). CALLED BY IFX2CNTL AT DISPLACEMENT (0496). 

(00000000) 00000000 000F2120 000F24F8 0036C3EA 0202724C 00000004 003FC808 00000000 

(00000020) 00000000 0011F9E0 00000000 00090463 0008F464 0008E465 0008D466 0008C467 

(00000040) OOOFICOO 0008B468 C3D5E3D3 0002C54F 000F2178 00I075F0 0002B527 OOOFICOO 



(00000340) 00000026 00000000 00000000 00000000 0011F680 00000000 00000000 00000000 

(00000360) 0011F878 00000000 0011F908 00000000 0011F9E0 00000000 
SAVE AREA FOR IFX2CNTL (000F2I20). CALLED BY IFXOCNTL AT DISPLACEMENT (0706). 

(00000000) 00000000 000F1930 000F2180 4202C48E 0008B468 000F1B99 000F216C 000F217D 

(00000020) 00000000 00000000 00000000 00000000 00000000 00000001 000F1930 00000000 

(00000040) OOOFICOO 0002BFF8 C3D5E3D3 0002C54F 000F2178 00000000 0000002C 00000000 
Figure 3. Sample Trace Point 77 Output 
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MESSAGE PROBLEMS 



Use the MSGx keyword procedure for any of these conditions: 

• A message is issued indicating an internal program error. 

• A message is issued under conditions that should not have 
caused it to be issued. 

• A message contains invalid data or is missing data. 

Do not use this procedure if you received a message as the 
result of an abnormal termination. In that case, see "Abnormal 
Termination Problems" on page 6. 

Each VS FORTRAN compiler message is identified by a string of 
eight characters, followed by a string of four characters: 

IFXpnnnn mmmm 

where: 



IPX 
P 

nnnn 
mmmm 



is the message prefix identifying all VS FOR i .AN 
compiler messages. 

is the number of the compiler phase issuing the 
message. 

is the message number. 

represents the last four characters of the name of 
the module issuing the message. 



Each VS FORTRAN library message is identified by a string of 
seven characters, followed by a string of up to five characters 

IFYnnnX mmmmm 

where: 



I FY 

nnn 
X 

mmmmm 



is the message prefix identifying all VS FORTRAN 
library messages. 

is the message number. 

is either an I for informational messages, or an S 
for severe error conditions. 

represents the rightmost 3-5 characters of the name 
of the library module issuing the message. 



Procedure 



1. Replace the x of MSGx with the complete message identifier. 
For example, if the message identifier is IFXIYYYY, the MSGx 
keyword is MSGIFXIYYYY. 

2. Use the name of the module that caused the message to be 
issued as the module name keyword. 

a. If the message identifier begins with IFX, the compiler 
module name is prefixed with IFX and the phase number. 
For example 

IFX10060 IFAR 

results in the following keywords: 



Type of Failure: 
Module Name: 



MSGIFX10060 
IFXIIFAR 
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b. 



If the message identifier begins with IFY, it is a 
library message. In this case/ the module name is 
prefixed with IFY. For example 

IFY207I VFNTH 

results in the following keywords: 



Type of Failure: 
Module Name: 



MSGIFY207I 
IFYVFNTH 



3. Proceed with "Release and Modification Levels" on page 14 



NO RESPONSE PROBLEMS 



Procedure 



Use the LOOP keyword procedure when a program seems not to be 
doing anything or is doing something repetitively. However^ if 
the problem looks like a WAIT/ it is probably a system problem 
and you should follow your installation's procedures for 
resolution. 



If the failure occurs during execution^ there is a strong 
probability that this is a user error. Carefully check your 
VS FORTRAN source program to be sure it does not contain an 
endless loop. Adding a DEBUG or a PRINT statement and 
recompiling may help to detect such a program error. See 
Appendix A/ "Service Aids" on page 18 for instructions on 
how to use static debug. 

If you are running in batch mode and the error is a system 
abend indicating not enough time, it is possible that 
inadequate time was allotted to compile the program. 
Increase the time allotment and recompile. If the problem 
is still not resolved^ a set of keywords describing it would 
look something like this: 

Component Identification: 5748F0300 
Type of Failure: LOOP 

Determine at what levels of optimization the failure occurs. 

If it occurs at only some levels^ indicate in the keyword 
string the levels of optimization at which it does occur. 
Select the appropriate modifier keyword from the list shown 
in Appendix B, "Compiler Options" on page 20. 

Continue with "Release and Modification Levels" on page 14. 



DOCUMENTATION PROBLEMS 



Procedure 



Use the DOC keyword procedure when a program problem appears to 
be caused by incorrect or missing information in one of the VS 
FORTRAN publications. 



Locate the page where the problem occurs in the document/ 
and prepare a description of the error and the problem it 
caused. 

Decide whether this documentation problem is severe enough 
to cause lost time for other users. 

If the problem is not severe/ fill out the Reader's Comment 
Form attached to the back of that manual giving the problem 
description you developed. Be sure to include your name and 
return address so IBM can respond to your comments. 
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If the problem is likely to cause lost time for other users^ 
continue creating your keyword string to determine whether 
IBM has a record of the problem. Should it be a new 
problem^ you will be asked to submit a severity 3 or 4 (DOC) 
APAR. 

Use the order number on the cover of the document/ along 
with the DOC keyword as the type of failure keyword, but 
omit the hyphens. For example, instead of SC26-3990-'i (this 
book), enter SC2639904. Your set of keywords would look 
like this: 



Component Identifications 
Type of Failure: 



57'^8FO300 
DOC SC263990'* 



Continue the diagnostic procedure with "Release and 
Modification Levels" on page 14. If, after searching the 
IBM software support data base, you do not find a matching 
problem description, return here to continue. 

Before assuming your search argument is not in the data 
base, you may want to try the search again, using the 
following format: 



Component Identification: 
Type of Failure: 
Release Level : 



5748FO300 

DOC SC263990XX 

175 



This method allows you to search for all problems reported 
for that document number rather than a specific release 
number. 



INCORRECT OUTPUT PROBLEMS 



Procedure 



Use the INCORROUT keyword procedure when output appears to be 
incorrect or missing, but the program terminates normally 
otherwise. 



The failure occurred during compilation. 

a. If you suspect incorrect or missing output from a 

compilation that otherwise compiled successfully, select 
a modifier keyword from the following list to describe 
the type of error in the output. 

Modifier Type of Incorrect Output 

MISSING Some expected output was missing. 

DUPLICATE Some records or data were duplicated, but 
not repeated endlessly (in that case, see 
"No Response Problems" on page 11). 

INVALID The proper amount of output appeared, but it 
was not what was expected. 
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2. 



PERFORMANCE PROBLEMS 



b. Select another modifier keyword from the following list 
to describe the portion of the output in which the error 
occurred. 

Modifier Portion of Output in Error 

DEBUG Static debug 

DUMP CDUMP, PDUMP, and SDUMP 

MAP Storage map 

OBJECT Machine-language object program 

SOURCE Source listing 

SRCFLG Source listing 

STAT Statistics and error listing 

TRMFLG Terminal screen error listing 

XREF Cross-reference listing 

For example^ if you think the compiler has produced an 
incorrect cross-reference listing^ your keyword string would 
look like this so far: 



Component Identification: 
Type of Failure: 
Modifiers: 



57^8F0300 
INCORROUT 
INVALID XREF 



Continue the diagnostic procedure with "Release and 
Modification Levels" on page 1^. 

The failure occurred during execution. 

a. There is a strong probability that this is a user error. 
Check your VS FORTRAN source program to be sure it is 
free of program errors. Adding a DEBUG or PRINT 
statement and recompiling can help you to detect such an 
error. See Appendix A, "Service Aids" on page 18 for 
instructions on how to use static debug statements. 

b. If you suspect incorrect or missing output from a 
program that otherwise executed successfully^ select a 
modifier from the following list to describe the type of 
error in the output. 

Modifier Type of Incorrect Output 

MISSING Some expected output was missing. 

DUPLICATE Some data or records were duplicated, but 
not repeated endlessly (in that case, see 
"No Response Problems" on page 11). 

INVALID The proper amount of output appeared, but it 
was incorrect. 

c. Continue the diagnostic procedure with "Release and 
Modification Levels" on page 14. 



Use the PERFM keyword procedure when a performance problem 
cannot be corrected by system tuning, and performance is below 
expectations documented in an IBM product publication. 



Developing a Keyword String 15 



Procedure 



Record the actual performance and the expected performance 
measurements for your system configuration. Note the order 
number and page of the IBM document that is the source of 
your performance expectations. You will be asked for this 
information if you contact the IBM support center; if you 
prepare materials for an APAR, you should also include this 
information in the error description. 

Continue the diagnostic procedure with "Release and 
Modification Levels," below. 



RELEASE AND MODIFICATION LEVELS 



PROCEDURE 



Use the following procedure to identify the release of the VS 
FORTRAN Compiler or Library and the current level of 
modification. 



Locate the 'Level n.n.n* line at the top of your latest 
printout, or at the top of your trace point 77 dump. This 
line begins as follows: 



XLEVEL 1.4.0 COct 84) 



VS FORTRAN 



and also contains the date and time of processing and a page 
number. 

Locate the release level keyword in the following chart by 
release number and operating system. 



VS FORTRAN 
Version 
Release 
and Mod. 
Level 


OPERATING SYSTEM 


MVS 


VM 


VSE 


Compiler 


Library 


1.4.0 


DOO 


A40 


175 


176 


1.3.1 


C03 


A31 


H53 


H54 



3. You now have the information necessary for an effective 
search of known problems documented in a software support 
data base. Continue with "Using the Keyword String as a 
Search Argument" on page 15. 
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USING THE KEYWORD STRING AS A SEARCH ARGUMENT 



PROCEDURE 



The following procedure explains how to use the set of keywords 
you've developed. 

Searches against a software support data base will be most 
successful if VS FORTRAN diagnosticians follow these rules: 

• Use only the keywords given in this book. 

• Spell keywords exactly as they are presented in this book. 

• Include all appropriate keywords in any discussion with IBM 
support personnel or in any written description of your 
problem. 

If you decide to contact IBM to search the Software Support 
Facility, be prepared to supply your: 

• Customer number 

• The set(s) of keywords used to search the software support 
data base 



If you do the search yourself, follow the procedure below: 

1. Search the software support data base, using the full set of 
keywords you've developed. Given the following list: 

Component Identification: 5748F0300 

Type of Failure: ABENDOCl 

Module Name: IFX2CNTL 

Displacement Modifier: 01676 

Release Level: A<40 

your keyword string would be: 

5748F0300 ABENDOCl IFX2CNTL 01676 A40 

2. Eliminate those APAR fixes that have already been applied to 
your system from the list of possible matches. 

3. Compare each remaining APAR closing description with the 
symptoms of your current problem. 

4. If a match is found, the problem's solution can be applied 
to your system through several different methods. Some APAR 
fixes have "supei — zaps" listed within the APAR, while other 
APAR fixes are available from the IBM Support Center. You 
may already have the program temporary fix (PTF) at your 
installation, and only need to install it from the correct 
program update (PUT) tape. 

Note: For information on applying a specific PTF, refer to 
the cover letter associated with it. 

5. If a match is not found, broaden the search, using the 
following techniques. 

a. Use the release level keyword for another operating 
system with the same version, release, and modification 
level . 

b. Omit the release level keyword completely from the 
search argument, thereby broadening the search to 
include similar failures on all other release levels and 
operating systems. 
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c. One by one* drop keywords from the right of your keyword 
string. (The keyword string was developed in a specific 
sequence to make this technique possible.) 

d. Substitute 5748LM303 for the component identification 
keyword if the error has occurred while running within a 
module of the VS FORTRAN library. 

The VS FORTRAN library supports programs compiled with 
the VS FORTRAN compiler, as well as any of the following 
compilers: 

Product Name Component ID 

FORTRAN IV H-Extended Compiler 573<iF0301 

FORTRAN IV Gl Compiler 573^F0201 

FORTRAN IV F Compiler 360NF0479 

If you are using one of these compilers in conjunction 
with the VS FORTRAN library, search the software support 
data base, using that compiler's component 
identification keyword along with the VS FORTRAN 
library's identification number. 

e. Consider using a synonym as a replacement for a modifier 
keyword. The problem may have been entered into the 
data base using a slightly different expression than the 
now-recommended format. 

6. If a match is not found using the preceding techniques, go 
to "Preparing an APAR" on page 17. 
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PREPARING AN APAR 



PROCEDURE 



Prepare to submit an APAR only after the preceding diagnostic 
procedures have been followed/ and the keyword search proves 
unsuccessful . 



If you think you need to submit an APAR* contact the IBM 

Support Center. Often you will already have been in contact 

with IBM while searching a data base and attempting to 

resolve the problem. In either case, be prepared to supply 
your: 

• Customer number 

• The keyword string(s) used to search the software 
support data base 

The support personnel will review the problem with you, and 
give you an APAR number when you and they have agreed that 
an APAR is necessary. 

You may be asked to supply various types of information to 
help prepare the APAR. Applicable items from the following 
list may be necessary: 

• Job control statements 

• Link-edit or loader map output 

• Compiler listings, including: 

— Source listing 

— Object listing 

— Storage map 

— Cross-reference listing 

• Any debugging output 

• Under VM/SP, any spooled CMS console output or special 
CMS EXECs 

• Machine-readable copy of the application program 
experiencing the problem 

• A description of the application program and the 
organization of its data sets 
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APPENDIX A. SERVICE AIDS 



SOURCE STATEMENTS AND OPTIONS 

For more comprehensive information on the following statements 
and options, refer to VS FORTRAN Language and Library Reference . 

STATIC DEBUG STATEMENTS 

AT Statement: specifies the beginning of a debugging packet. 

DEBUG and END DEBUG Statements: delimit the debugging portions 
of a program. 

Debug 

Options Description 

INIT displays a variable or an array name in the debug 
output when the variable or array element is 
assigned a new value. 

SUBCHK checks the validity of the subscripts used with the 
named arrays. 

SUBTRACE specifies that the name of this subprogram is to be 
produced whenever it is entered, and RETURN is 
printed when the subprogram is exited. 

TRACE specifies portions of a program to be traced. 

UNIT specifies a particular data set for all debugging 
output. 

DISPLAY Statement: displays data within a debugging packet. 

TRACE/ON and OFF Statements: specify when to begin and end 
tracing. 

Note: Any FORTRAN statement can be used in conjunction with 
static debug statements. Refer to Id on page 7 for a list of VS 
FORTRAN statements. These statements can only be used at 
optimization level and with the NORENT option. 

VS FORTRAN INTERACTIVE DEBUG 

If you have VS FORTRAN Interactive Debug (product number 
5668-903) at your installation, you can use it to help determine 
the statement causing the error. Nith VS FORTRAN Interactive 
Debug, you can suspend program execution, continue execution, 
skip sections of code, correct errors, set up expected input, 
and display output. You can also use VS FORTRAN Interactive 
Debug to debug optimized code, with some restrictions. For more 
information, see VS FORTRAN Interactive Debug Guide and 
Reference . 

DUMP AND PDUNP SUBROUTINES 

DUMP is a service subroutine used to dump storage and terminate 
object program execution. PDUMP is a service subroutine used to 
dump storage and continue object program execution. The DUMP 
and PDUMP subroutines are invoked by the CALL statement. 
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CDUNP AND CPDUMP SUBROUTINES 



SDUNP SUBROUTINE 



CDUMP is a service subroutine used to dump storage in character 
format and terminate object program execution. CPDUMP is a 
service subroutine used to dump storage in character format and 
continue object program execution. The CDUMP and CPDUMP 
subroutines are invoked by the CALL statement. 



The Symbolic Dump (SDUMP) subroutine displays a symbolic dump of 
all the variables in one or more program units. The variables 
are displayed in a format that is determined by the variable 
types and sizes declared^ or defaulted^ in the source program. 
The SDUMP subroutine is invoked by the CALL statement. 



COMPILER TRACE OPTION 



TRACE 



The TRACE compiler option indicates that the compiler diagnostic 
trace information is to be produced. The TRACE option is only 
valid as part of an 3PR0CESS statement. The formal of the 
aPROCESS statement using the TRACE option is: SPROCESS beginning 
in column 1 and followed by TRACE and any other options. 

Multiple options are separated by one or more blanks. The 
aPROCESS statement must be the first statement in the source 
program. Further details on the SPROCESS statement are found in 
VS FORTRAN Programming Guide . 

Nhen a program interrupt occurs within the FORTRAN Compiler and 
the TRACE option is on* a special trace point is activated in 
the interrupt handler. This trace point is known as trace point 
77; it provides a printout of the PSN» all general registers, 
save areas for all active modules, and formatted printouts of 
all available tables. 

Other trace points are available but are used only at the 
request of the IBM product specialist. 

See Figure 3 on page 9 for sample output from the trace point 
77. 
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APPENDIX B. COMPILER OPTIONS 



Use the modifier keywords shown below to identify compiler 
options in the keyword string. 



Option 


Modifier 


Keywords 




AUTODBL (value) 


AUTODBL 


CHARLEN (number) 


CHARLEN 


CI (number) 


CI 


DC (name) 


DC 


DECK or NODECK 


DECK 


NODECK 




FIPS (F|S) or NOFIPS 


FIPSF 


FIPSS NOFIPS 


FLAG (IINIEIS) 


FLAGI 


FLAGN FLAGE FLAGS 


FREE or FIXED 


FREE 


FIXED 




GOSTMT or NOGOSTMT 


GOSTMT 


NOGOSTMT 




LANGLVL (66177) 


LANGLVL66 


LANGLVL77 




LINECOUNT (number) 


LINECOUNT 


LIST or NOLIST 


LIST 


NOLIST 




MAP or NOMAP 


MAP 


NOMAP 




NAME (name) 


NAME 


OBJECT or NOGBJECT 


OBJECT 


NOOBJECT 




OPTIMIZE (011(213) or NOOPTIMIZE» 


OPTO 


OPTl 0PT2 


0PT3 


RENT or NORENT 


RENT 


NORENT 




SDUMP or NOSDUMP 


SDUMP 


NOSDUMP 




SOURCE or NOSOURCE 


SOURCE 


NOSOURCE 




SRCFLG or NOSRCFLG 


SRCFLG 


NOSRCFLG 




SXM or NOSXM 


SXM 


NOSXM 




SYM or NOSYM 


SYM 


NOSYM 




TERMINAL or NOTERMINAL 


TERM 


NOTERM 




TEST or NOTEST 


TEST 


NOTEST 




TRMFLG or NOTRMFLG 


TRMFLG 


NOTRMFLG 




XREF or NOXREF 


XREF 


NOXREF 





Note: 

» The NOOPTIMIZE option is the same as OPTIMIZE 0. 
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